home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / w3 / w3-next.el < prev    next >
Encoding:
Text File  |  1995-04-17  |  2.2 KB  |  58 lines
  1. ;;; w3-next.el,v --- NeXTStep specific functions for emacs-w3
  2. ;; Author: wmperry
  3. ;; Created: 1995/04/14 23:51:15
  4. ;; Version: 1.6
  5. ;; Keywords: faces, help, mouse, hypermedia
  6.  
  7. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  8. ;;; Copyright (c) 1993, 1994, 1995 by William M. Perry (wmperry@spry.com)
  9. ;;;
  10. ;;; This file is part of GNU Emacs.
  11. ;;;
  12. ;;; GNU Emacs is free software; you can redistribute it and/or modify
  13. ;;; it under the terms of the GNU General Public License as published by
  14. ;;; the Free Software Foundation; either version 2, or (at your option)
  15. ;;; any later version.
  16. ;;;
  17. ;;; GNU Emacs is distributed in the hope that it will be useful,
  18. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20. ;;; GNU General Public License for more details.
  21. ;;;
  22. ;;; You should have received a copy of the GNU General Public License
  23. ;;; along with GNU Emacs; see the file COPYING.  If not, write to
  24. ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  25. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  26.  
  27. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  28. ;;; NeXT Emacs Specific Functions
  29. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  30.  
  31. (defvar w3-NeXT-mousemap (make-mousemap)
  32.   "Mousemap for use on NeXT Emacs
  33. <left> follows link, <shift left> views the URL, <ctrl left> quits.")
  34.  
  35. (define-mouse w3-NeXT-mousemap '(text left) 'w3-follow-mouse)
  36. (define-mouse w3-NeXT-mousemap '(text shift left) 'w3-view-url-at-mouse)
  37. (define-mouse w3-NeXT-mousemap '(text control left) 'w3-quit-from-mouse)
  38.  
  39. (defun w3-follow-mouse (window x y)
  40.   "Follow the link under the mouse cursor"
  41.   (mouse-move-point window x y)
  42.   (if (w3-zone-at (point)) (w3-follow-link)))
  43.  
  44. (defun w3-view-url-at-mouse (window x y)
  45.   "View the URL under the mouse cursor"
  46.   (mouse-move-point window x y)
  47.   (if (w3-zone-at (point)) (w3-view-this-url)))
  48.  
  49. (defun w3-quit-from-mouse (window x y)
  50.   "Invoke w3-quit from mouse"
  51.   (w3-quit))
  52.  
  53. (defun w3-mode-version-specifics ()
  54.   "NeXTEmacs specific w3-mode stuff"
  55.   (use-local-mousemap w3-NeXT-mousemap))
  56.  
  57. (provide 'w3-next)
  58.